#!perl -Ilib

BEGIN {
  require 't/_sqlite.pl';
}

use Test::More;
use Test::Differences;

plan ( tests => 1 + 5 );

use_ok ( 'SVNTrac::Ticket' );

my $ticket = SVNTrac::Ticket->new ( tn => 1 );

$ticket->load;

is ( $ticket->type,    'todo',            'type'    );
is ( $ticket->contact, 'Serge Karamazov', 'contact' );
is ( $ticket->status,  'closed',          'status'  );
is ( $ticket->owner,   'dilbert',         'owner'   );
is ( $ticket->extra4,  '1.0.0',           'extra4'  );
